home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / WEEKDAYS.BAS < prev    next >
BASIC Source File  |  1985-06-02  |  938b  |  27 lines
  1. 10   CLS
  2. 15   KEY OFF
  3. 20   REM
  4. 30   PRINT : PRINT : PRINT
  5. 40   PRINT TAB(28) " AN ASTRONOMY PROGRAM"
  6. 45   PRINT : PRINT
  7. 50   PRINT TAB(22) "-------- DAYS OF THE WEEK --------"
  8. 55   PRINT : PRINT :
  9. 60   PRINT TAB(30) " BY CHRIS SPRATT"
  10. 65   PRINT
  11. 70   PRINT TAB(34) "DEC. 1984"
  12. 75   PRINT
  13. 80   PRINT : PRINT :
  14. 90   LOCATE 24,25
  15. 91   PRINT "PRESS ANY KEY TO CONTINUE"
  16. 92   B$ = INPUT$ (1)
  17. 95   CLS : PRINT : PRINT : PRINT : PRINT
  18. 100  REM
  19. 110  DIM WKDAY$(7),OFFSET(12)
  20. 120  DATA "SUNDAY","MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY"
  21. 130  DATA 0,3,3,6,1,4,6,2,5,0,3,5
  22. 140  FOR L = 1 TO 7 : READ WKDAY$(L):NEXT :FOR L= 1 TO 12 :READ OFFSET(L):NEXT
  23. 150  Y = VAL(MID$(DATE$,7,4)):M = VAL(MID$(DATE$,1,2)):D= VAL(MID$(DATE$,4,2))
  24. 160  X = INT((( Y - 1976) *12 + M -3 +33600!)/48)
  25. 170  X = X+Y - 1978 + OFFSET(M) + D-1:Z = INT(X/7) : Z = X-Z*7 + 1
  26. 180  PRINT TAB(20) "TODAY IS  ";WKDAY$(Z);",  ";DATE$
  27.